home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / Spider / DRAW17.ADA < prev    next >
Text File  |  1994-01-11  |  281b  |  24 lines
  1. WITH Spider; USE Spider;
  2. WITH Left;
  3. PROCEDURE Drawing17 IS
  4.  
  5.  
  6. BEGIN                   -- Begin the drawing
  7. Reset;
  8. Left;    -- new command used here
  9. Step;
  10. Step;
  11. Left;    -- and here
  12. Red; 
  13. Step;
  14. Step;
  15. Step;
  16. Left;    -- and here too!
  17. Step;
  18. Blue;
  19. Step;
  20. Step;
  21. Step;
  22. Quit;
  23. END Drawing17;
  24.